00010 



XLIST 
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00030 

00040 EXTERNAL APRCHN, ERROR , lOI NI 

00050 EXTERNAL DDT, NUL JOB , SYSMAK , ONCE, SYSBEG, SYSBGl, SYSEND 

00060 EXTERNAL CORTAB . CORLST, CORTAL. CORBLK , SYSSI 2 , L I NKSR 

00070 

00080 ;SYSTEM INITIALIZATION D I SP ATCHTABLE , STARTING AT LOG. 140 

00090 ;THIS SUBROUTINE MUST BY LOADED FIRST 

00100 {ROUTINE ONCE IS ONCE ONLY CODE. IT CONVERTS THE DATE 

00110 ;AND SETS UP 10 SERVICE CHAIN. 

00120 

00130 

00140 

00150 INTERNAL SYSDSP 

00160 

000000 254000 000010' 00170 SYSDSP: JRST SYSINI {INITIALIZE SYSTEM VARIABLES ONCE ONLY 

000001 254000 000000 00180 JRST DDT ;EXEC DD 

000002 254000 000000 00190 JRST SYSMAK JMAKE NEW SYSTEM 

000003 254000 000010' 00200 JRST SYSINI .'INITIALIZE SYSTEM VARIABLES ALWAYS 

000004 254500 000000 00210 JEN NULJOB ;ERR0R RECOVERY 

000005 254000 000007" 00220 JRST SYSONE JDO ONCE ONLY CODE OVER AGAIN 

000006 254000 000012' 00230 JRST JSR2 {BYPASS ONCE ONLY OPERATOR DIALOGUE 

00240 ;(IN CASE CONSOLE TTY DOWN) 
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000007 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000020 
000021 
000022 
000023 
000024 

000025 
000026 
000027 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000050 



264000 
700200 
264000 
264000 
204040 
403100 
206040 
206040 
541040 
251040 
205040 
541040 
554300 
412046 

402006 
554306 
326300 
200440 
202440 
201040 
700200 
133000 
510242 
313100 
700300 
344240 
350000 
202440 
137240 
271100 
367040 
133000 
541040 
542040 



000000 

200000 

000007' 

000000 

000014 • 

000000 

000011' 

000012' 

000000 

000000 

430000 
600000 
000000 
000004 

000005 
000003 
000024' 
000105' 

000000 

000000 

010000 

000011 

000000 

000000 

010000 

000043' 

000000 

000031 ' 

000011 

002000 

000033' 

000042' 

000051' 

000000' 



00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 



MNITIALIZE SYSTEM DATa STORAGE 

INTERNAL SYSINI 

NXM=10000 ;N0N ex mem flag 



SYSONE 
SYSINI 
JSRi: 
JSR2: 



SYSl 



SYS2 



SYS3: 



ONLY CODE 

; 10 RESET 
ONLY CODE ONCE 
;LINK 10 SERVICE 



ROUTINES 



CLEAR SYSTEM DATA STORAGE 



JSR ONCE ;once 
CONO APR, 200000 
JSR ONCE ;D0 ONCE 
JSR LINKSR 
MOVS TAC, .+1 
SET2B TACl.SYSBEG 
MOVSM TAC, JSRI 
MOVSM TAC,JSR2 
HRRI TACSYSBGl 

blt tacsysend 

movsi tac, dvdirin+ttyatc+ttyuse 

hrri tacasscon + assprg 

hlr2 devdat.dfvlst ;scan all devices 

andcam tac, devmod ( devdat ) ;clear directory 

;assigned by console & program 
SETZM devlog(devdat) ;clear logical name 

HLRZ DEVDAT, DEVSER (DEVDAT ) 
JUMPN DEVDAT, SYSl 

;SET UP CORE USE BIT 



IN CORE BIT, 



MOVE JDAT,C0REP 

MOVEM JDAT,CORLST 

MOVEI TACCORBLK ;N0. OF IK 

CONO APR,NXM ;CLEAR NON 

IBP JDAT ;M0VE byte POINTER 

HLLZ DAT,(TAC1) 

CAMLE TAC1,SYSSIZ 

CONSZ APR,NXM 

AOJA DAT,SYS3 

AOS CORTAL 

MOVEM JDAT,CORLST 

DPB DAT, JDAT 

ADDI TAC1,2000 

SOJG TAC,SYS2 

IBP CORLST 

HRRI 1,I0G0 

HRRM 1,SYSDSP 



BLOCKS 
EX MEM 



TABLE 



IN TABLE 



;REFERENCE memory, clear RT. of DAT 

;highest loc in exec. 

;can memory be used for user prog? 

;N0, MARK AS INACCESIBLE (1 BIT) 
;AND set LAST FREE BLOCK POINTER 

;store or 1 bit in table 
mncrement memory ref 

;set to first unavailable block 

;falinto iogo 
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000051 
000052 
000053 
000054 
000055 
000056 
000057 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
17100067 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000100 



201040 
700201 
554040 
201100 
413101 
525200 
602100 
661200 
406201 
402001 
402001 
554041 
326040 
476000 
476000 
476000 
201140 
260140 

205240 
200040 
202045 
253240 
700600 
254000 



000000 

633440 

000023' 

200000 

000004 

000720 

400000 

777000 

000001 

000002 

000006 

000003 

000054' 

000000 

000000 

000000 

000100' 

00 00 

000000 

000106 • 

000000 

000075' 

012377 

000004' 



000105 440100 000000 



000106 002000 000001 



00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 



INITIALISE ALL lODEVICES 



EXTERNAL 



lOGO: 



IOG0 



lOGl 



lOPDL 
COREP 



INTERNAL lOGO 
EXTERNAL DEVLST, 
DCREQ,MTREQ,DTREQ 



MJOBN, JBTADR,JBTSTS, lOINI 



MOVEI TACAPRCHN 

CONO APR,633440(TAC) 

HLR2 TAC, DEVLST JCHAIN 

MOVEI TACl.ASSPRG ;CLEAR 

ANDCAB TAC1,DEVM0D(TAC) 

HRLOI ITEM, I0RET+7»PICHN 

TRNE TACl.ASSCON 

TLO ITEM, 777000 

ANDM ITEM,DEVCHR(TAC) 

SETZM DEVIOS(TAC) JCLEAR 

SETZM DEVBUF(TAC) ;CLEAR 

HLR2 TAC, DEVSER(TAC) 

JUMPN TAC, IOG0 

SETOM DCREQ 

SETOM MTREQ 

SETOM DTREQ 

MOVEI PDP,I0PDL-1 

PUSHJ POP, lOINI 

MOVSI DAT.MJORN 

MOVE TACCXWD JERR,13 

MOVEM TAC, JBTSTS(DAT) 

AOBJN DAT, lOGl 

CONO PI, 12377 



OF DEVICE DATA BLOKS 
ASSIGNED BY PROGRAM BIT 

;CLEAR JOB NO., USER CHANNEL 



;BUT NOT lORET 
10 STATUS WORD 
BUFFER ADDRESSES 



BIT OR PII CHA 



CLEAR DEVICE REQUEST COUNTS 



INITIALISE 
JOB NUMBER 



10 DEVICES 
ASSIGNED BIT 
SET ERROR BIT, CLEAR ALL OTH 



JRST NULJOB 

BLOCK 4 

POINT 1,C0RTAB 



END SYSINI 



START THE NULL JOB 



1 BIT BYTE POINTER TO CORE USE TABLE 



THFRE ARE NO ERRORS 
PROGRAM BREAK IS 000107 
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A 

ACl 
AC2 
AC3 

AL 

APRCHN 

ASSCON 

ASSPRG 

B 

BUFPNT 

BUFWRD 

CLOSB 

CLSIN 

CLSOUT 

CORBLK 

COREP 
CORLST 
CORTAB 
CORTAL 

n 

DAT 

DCL 

DCREQ 

DCW 

DDI 

DDO 

DOT 

nOTMEM 

DDTSYM 

nEN 

nEVADR 

DEVBUF 

DEVCHR 

DEVCTR 

DEVDAT 

OEVIAD 

OEVIOS 

DEVLOG 

nEVLST 

OEVMOD 

DEVNAM 

OEVOAO 

OEVPTR 

DEVSER 

OGF 

DIN 

QLK 

nou 

OR 
nRL 

nsi 

OSO 
QTREQ 

nTw 

nVAVAL 



000000 


TNT 


000015 


INT 


000016 


INT 


000017 


INT 


000001 


INT 


000051* 


EXT 


400000 


INT 


200000 


INT 


000014 


INT 


000012 


INT 


000013 


INT 


002000 


INT 


000002 


INT 


000001 


INT 


000032' 


EXT 


000105' 




00 04 6' 


EXT 


000105' 


EXT 


000041 ' 


EXT 


000017 


INT 


000005 


TNT 


000001 


INT 


000066' 


EXT 


020000 


INT 


000007 


INT 


000006 


INT 


000001 • 


EXT 


000037 


INT 


000036 


INT 


000004 


INT 


000 00 7 


INT 


000006 


INT 


000001 


INT 


000011 


INT 


000006 


TNT 


000007 


INT 


000002 


INT 


000005 


INT 


000053' 


EXT 


000004 


INT 


000 000 


INT 


000010 


INT 


000010 


INT 


000003 


INT 


000012 


INT 


000003 


INT 


000005 


INT 


000002 


INT 


000016 


INT 


000000 


INT 


000011 


INT 


000010 


INT 


000070' 


EXT 


040000 


INT 


000040 


INT 
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DVCDR 

ovniR 

ovniRi 

nviN 

DVLPT 
DVHTA 

nvouT 

DVTTY 

ENTRR 

ERROR 

I 

IB 

IBUEB 

INITB 

INPB 

10 

lOACT 

lOREG 

lOBKTL 

lOCON 

lODEND 

lOOERR 

lODISC 

lOnONE 

lODTER 

lOEND 

lOEST 

IOG0 

lOGl 

lOGO 

lOTMPM 

lOlNI 

lONRCK 

lOPDL 

lORDEL 

lORET 

lOS 

TOSTRT 

lOUSe 

lOW 

I owe 

lOWS 

ITEM 

JBEAOR 

JBECTR 

JBEPTR 

JBTADR 

JBTSTS 

JBUE 

JDAT 

JERR 

JIOW 

JNA 

JSRl 

JSR2 



100000 


INT 


000004 


INT 


4 00 000 


INT 


000002 


INT 


040000 


INT 


000020 


INT 


000001 


INT 


000010 


INT 


020000 


INT 


000000 


EXT 


000010 


INT 


000013 


INT 


200000 


INT 


400000 


INT 


010000 


INT 


000020 


INT 


010000 


INT 


000002 


INT 


040000 


INT 


000040 


INT 


020000 


INT 


200000 


INT 


400000 


INT 


400000 


INT 


100000 


INT 


000040 


INT 


000004 


INT 


000054' 




000075' 




000051 ' 


INT 


400000 


INT 


000072* 


EXT 


000100 


INT 


000101' 




000100 


INT 


000020 


INT 


000000 


INT 


000010 


INT 


400000 


INT 


000001 


INT 


000020 


INT 


400000 


INT 


000004 


INT 


000000 


INT 


000002 


INT 


000001 


INT 


000000 


EXT 


000075' 


EXT 


000005 


INT 


000011 


INT 


002000 


INT 


100000 


INT 


004000 


INT 


000011' 




000012' 
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LINKSR 

LOOKB 

MJOBN 

MTREQ 

MTW 

NULJOB 

NXM 

OBUFB 

ONCE 

OUTPB 

PDF 

PICHN 

PROG 

RUN 

RUNABL 

SYSl 

SYS2 

SYS3 

SYSBEG 

SYSBGl 

SYSDSP 

SYSEND 

SYSINI 

SYSMAK 

SYSONE 

SYSSIZ 

TAG 

TACl 

TEM 

TTYATC 

TTYUSE 

USRMOD 

UUO 



000012 
i?i40000 
000073 
000067 

010000 

000100 

010000 

100000 

000011 

004000 

PI00003 

000100 

000007 

200000 

204000 

000024' 

000033' 

000043' 

000014' 

000017' 

000000' 

000020' 

000010' 

000002' 

000007' 

000036' 

000001 

000002 

000010 

020000 

f^l0000 

010000 
000014 



EXT 
INT 
EXT 
EXT 
INT 
EXT 

INT 
EXT 
INT 
INT 
INT 
INT 
INT 
INT 



EXT 
EXT 
INT 
EXT 
INT 
EXT 

EXT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 



END OF ASSEMBLY 



